home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / flow.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-07-05  |  637 b   |  15 lines
  1. 10  CLS: KEY OFF
  2. 20  INPUT" NUMBER OF FEMALE STUDENTS IN CLASS ";N
  3. 30  INPUT" TOTAL NUMBER OF FEMALE STUDENTS IN CLASS OVER 30";F
  4. 40  INPUT" OF THE NUMBER IN CLASS UNDER 30, HOW MANY ARE DIVORCED ";D
  5. 50  INPUT" OF THE NUMBER IN CLASS UNDER 30, HOW MANY HAVE NEVER MARRIED ";S
  6. 60  INPUT" OF THE NUMBER IN CLASS UNDER 30, HOW MANY ARE WIDOWED ";W
  7. 70  WID=S-W
  8. 80  NM=U30-S
  9. 90  U30=N-F
  10. 100  DIV=S-D
  11. 110  PRINT:PRINT" THERE ARE"U30"FEMALE STUDENTS UNDER AGE 30 IN CLASS."
  12. 120  PRINT:PRINT" THERE ARE"DIV"FEMALE STUDENTS UNDER 30 WHO ARE NOT DIVORCED."
  13. 130  PRINT:PRINT" OF THE"U30" FEMALE STUDENTS,"NM" HAVE NEVER MARRIED."
  14. 140  PRINT:PRINT" OF THE"U30" FEMALE STUDENTS,"WID"HAVE NEVER BEEN WIDOWED."
  15.